home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr16.lha / sys-proclaim.lisp < prev    next >
Text File  |  1993-01-26  |  44KB  |  819 lines
  1.  
  2. (IN-PACKAGE "USER") 
  3. (PROCLAIM '(FTYPE (FUNCTION (*) FIXNUM) PCL::ZERO)) 
  4. (PROCLAIM
  5.     '(FTYPE (FUNCTION (T FIXNUM *) FIXNUM)
  6.             PCL::COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION)) 
  7. (PROCLAIM
  8.     '(FTYPE (FUNCTION (T) FIXNUM) PCL::FAST-INSTANCE-BOUNDP-INDEX
  9.             PCL::ONE-INDEX-LIMIT-FN PCL::N-N-ACCESSORS-LIMIT-FN
  10.             PCL::CHECKING-LIMIT-FN PCL::PV-CACHE-LIMIT-FN
  11.             PCL::CACHE-NLINES PCL::CACHE-MAX-LOCATION PCL::CACHE-SIZE
  12.             PCL::CACHE-MASK PCL::ARG-INFO-NUMBER-REQUIRED
  13.             PCL::DEFAULT-LIMIT-FN PCL::CACHE-COUNT
  14.             PCL::CACHING-LIMIT-FN PCL::PV-TABLE-PV-SIZE
  15.             PCL::EARLY-CLASS-SIZE)) 
  16. (PROCLAIM '(FTYPE (FUNCTION (FIXNUM) T) PCL::POWER-OF-TWO-CEILING)) 
  17. (PROCLAIM
  18.     '(FTYPE (FUNCTION (T) FUNCTION) PCL::CACHE-LIMIT-FN
  19.             PCL::METHOD-CALL-FUNCTION PCL::FAST-METHOD-CALL-FUNCTION)) 
  20. (PROCLAIM '(FTYPE (FUNCTION (T) PCL::FIELD-TYPE) PCL::CACHE-FIELD)) 
  21. (PROCLAIM
  22.     '(FTYPE (FUNCTION (T) LIST) PCL::CACHE-OVERFLOW
  23.             PCL::PV-TABLE-SLOT-NAME-LISTS PCL::PV-TABLE-CALL-LIST)) 
  24. (PROCLAIM '(FTYPE (FUNCTION (T) (MEMBER NIL T)) PCL::CACHE-VALUEP)) 
  25. (PROCLAIM '(FTYPE (FUNCTION (T) SIMPLE-VECTOR) PCL::CACHE-VECTOR)) 
  26. (PROCLAIM
  27.     '(FTYPE (FUNCTION (T) (VALUES T T)) PCL::MAKE-CLASS-PREDICATE-NAME
  28.             PCL::MAKE-KEYWORD)) 
  29. (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T) T) PCL::%CCLOSURE-ENV-NTHCDR)) 
  30. (PROCLAIM
  31.     '(FTYPE (FUNCTION (FIXNUM FIXNUM T) FIXNUM)
  32.             PCL::COMPUTE-PRIMARY-CACHE-LOCATION)) 
  33. (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 512)) PCL::CACHE-LINE-SIZE)) 
  34. (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 256)) PCL::CACHE-NKEYS)) 
  35. (PROCLAIM
  36.     '(FTYPE (FUNCTION (T) (OR PCL::CACHE NULL)) PCL::PV-TABLE-CACHE)) 
  37. (PROCLAIM
  38.     '(FTYPE (FUNCTION (T T T T T T) *) PCL::MEMF-CODE-CONVERTER
  39.             PCL::REAL-LOAD-DEFCLASS PCL::CACHE-MISS-VALUES-INTERNAL
  40.             PCL::GENERATE-DISCRIMINATION-NET-INTERNAL
  41.             PCL::MAKE-LONG-METHOD-COMBINATION-FUNCTION
  42.             PCL::DO-SHORT-METHOD-COMBINATION
  43.             WALKER::WALK-TEMPLATE-HANDLE-REPEAT-1)) 
  44. (PROCLAIM
  45.     '(FTYPE (FUNCTION (T T T) *)
  46.             PCL::GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
  47.             ITERATE::WALK-GATHERING-BODY
  48.             PCL::CACHE-MISS-VALUES
  49.             PCL::MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION
  50.             PCL::OPTIMIZE-SLOT-VALUE-BY-CLASS-P PCL::ACCESSOR-VALUES1
  51.             PCL::EMIT-READER/WRITER
  52.             PCL::EMIT-ONE-OR-N-INDEX-READER/WRITER
  53.             WALKER::WALK-MULTIPLE-VALUE-SETQ PCL::GENERATING-LISP
  54.             PCL::EMIT-READER/WRITER-FUNCTION
  55.             PCL::EMIT-ONE-OR-N-INDEX-READER/WRITER-FUNCTION
  56.             WALKER::WALK-LET-IF PCL::SET-SLOT-VALUE
  57.             PCL::CONVERT-METHODS PCL::SLOT-VALUE-USING-CLASS-DFUN
  58.             PCL::SLOT-BOUNDP-USING-CLASS-DFUN
  59.             PCL::CHECK-METHOD-ARG-INFO PCL::LOAD-LONG-DEFCOMBIN
  60.             PCL::MAKE-FINAL-N-N-ACCESSOR-DFUN
  61.             PCL::MAKE-FINAL-CACHING-DFUN
  62.             PCL::MAKE-FINAL-CONSTANT-VALUE-DFUN
  63.             PCL::GET-CLASS-SLOT-VALUE-1 PCL::ACCESSOR-VALUES-INTERNAL
  64.             PCL::MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION
  65.             PCL::MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION
  66.             ITERATE::EXPAND-INTO-LET WALKER::WALK-FORM-INTERNAL
  67.             ITERATE::RENAME-VARIABLES
  68.             PCL::CONSTANT-VALUE-MISS PCL::CACHING-MISS
  69.             PCL::CHECKING-MISS
  70.             PCL::GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION)) 
  71. (PROCLAIM
  72.     '(FTYPE (FUNCTION (T T T T T) *)
  73.             PCL::COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL
  74.             PCL::ADD-METHOD-DECLARATIONS PCL::WALK-METHOD-LAMBDA
  75.             PCL::MAKE-TWO-CLASS-ACCESSOR-DFUN
  76.             WALKER::WALK-TEMPLATE-HANDLE-REPEAT)) 
  77. (PROCLAIM
  78.     '(FTYPE (FUNCTION (T T T T) *)
  79.             PCL::GET-ACCESSOR-FROM-SVUC-METHOD-FUNCTION
  80.             PCL::BOOTSTRAP-ACCESSOR-DEFINITION
  81.             PCL::GET-ACCESSOR-METHOD-FUNCTION
  82.             PCL::EMIT-CHECKING-OR-CACHING
  83.             PCL::EMIT-CHECKING-OR-CACHING-FUNCTION
  84.             PCL::SETF-SLOT-VALUE-USING-CLASS-DFUN
  85.             PCL::LOAD-SHORT-DEFCOMBIN
  86.             PCL::INITIALIZE-INSTANCE-SIMPLE-FUNCTION
  87.             PCL::MAKE-SHARED-INITIALIZE-FORM-LIST
  88.             PCL::MAKE-ONE-CLASS-ACCESSOR-DFUN
  89.             PCL::MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN
  90.             PCL::MAKE-FINAL-CHECKING-DFUN PCL::ACCESSOR-VALUES
  91.             PCL::SET-CLASS-SLOT-VALUE-1
  92.             PCL::GENERATE-DISCRIMINATION-NET
  93.             PCL::REAL-MAKE-METHOD-LAMBDA
  94.             PCL::ORDER-SPECIALIZERS WALKER::WALK-TEMPLATE
  95.             PCL::ACCESSOR-MISS)) 
  96. (PROCLAIM
  97.     '(FTYPE (FUNCTION (T T T T T T T) *)
  98.             ITERATE::ITERATE-TRANSFORM-BODY)) 
  99. (PROCLAIM
  100.     '(FTYPE (FUNCTION (T T *) *) PCL::SLOT-VALUE-OR-DEFAULT
  101.             PCL::MAKE-EFFECTIVE-METHOD-FUNCTION
  102.             PCL::GET-EFFECTIVE-METHOD-FUNCTION
  103.             PCL::MAKE-N-N-ACCESSOR-DFUN WALKER:NESTED-WALK-FORM
  104.             PCL::MAKE-CHECKING-DFUN PCL::LOAD-DEFGENERIC
  105.             PCL::TYPES-FROM-ARGUMENTS
  106.             PCL::MAKE-DEFAULT-INITARGS-FORM-LIST
  107.             PCL::MAKE-FINAL-ACCESSOR-DFUN PCL::MAKE-ACCESSOR-TABLE
  108.             PCL::GET-SIMPLE-INITIALIZATION-FUNCTION
  109.             PCL::GET-COMPLEX-INITIALIZATION-FUNCTIONS
  110.             PCL::COMPUTE-SECONDARY-DISPATCH-FUNCTION)) 
  111. (PROCLAIM
  112.     '(FTYPE (FUNCTION (T T T T *) *)
  113.             PCL::MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1
  114.             ITERATE::RENAME-LET-BINDINGS)) 
  115. (PROCLAIM
  116.     '(FTYPE (FUNCTION (T T T *) *) PCL::MAKE-ONE-INDEX-ACCESSOR-DFUN
  117.             WALKER::WALK-DECLARATIONS
  118.             PCL::GET-SECONDARY-DISPATCH-FUNCTION)) 
  119. (PROCLAIM
  120.     '(FTYPE (FUNCTION (T T T T T T *) *) PCL::REAL-MAKE-A-METHOD)) 
  121. (PROCLAIM '(FTYPE (FUNCTION (T STREAM T) T) PCL::PRINT-DFUN-INFO)) 
  122. (PROCLAIM
  123.     '(FTYPE (FUNCTION (T T T) T) ITERATE::SIMPLE-EXPAND-GATHERING-FORM
  124.             ITERATE::RENAME-AND-CAPTURE-VARIABLES
  125.             ITERATE::VARIABLE-SAME-P
  126.             PCL::GET-FUNCTION-GENERATOR
  127.             WALKER:VARIABLE-DECLARATION PCL::GET-NEW-FUNCTION-GENERATOR
  128.             PCL::TRACE-METHOD-INTERNAL PCL::ONE-INDEX-DFUN-INFO
  129.             PCL::ONE-CLASS-DFUN-INFO
  130.             PCL::MAP-ALL-ORDERS SYSTEM::APPLY-DISPLAY-FUN
  131.             PCL::NOTE-PV-TABLE-REFERENCE
  132.             WALKER::RELIST-INTERNAL
  133.             PCL::MAKE-DFUN-CALL
  134.             WALKER::WALK-TAGBODY-1 WALKER::WALK-LAMBDA
  135.             PCL::OPTIMIZE-GF-CALL-INTERNAL
  136.             PCL::SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P
  137.             WALKER::WALK-COMPILER-LET PCL::SKIP-FAST-SLOT-ACCESS-P
  138.             WALKER::WALK-UNEXPECTED-DECLARE WALKER::WALK-FLET
  139.             WALKER::WALK-IF
  140.             WALKER::WALK-LABELS WALKER::WALK-LET WALKER::WALK-LET*
  141.             WALKER::WALK-LOCALLY
  142.             WALKER::WALK-MACROLET
  143.             PCL::FIX-SLOT-ACCESSORS WALKER::WALK-MULTIPLE-VALUE-BIND
  144.             PCL:COMPUTE-EFFECTIVE-METHOD WALKER::WALK-SETQ
  145.             WALKER::WALK-SYMBOL-MACROLET PCL::EMIT-SLOT-READ-FORM
  146.             WALKER::WALK-TAGBODY PCL::EMIT-BOUNDP-CHECK WALKER::WALK-DO
  147.             WALKER::WALK-DO* WALKER::WALK-PROG
  148.             WALKER::WALK-NAMED-LAMBDA WALKER::WALK-PROG*
  149.             PCL::EXPAND-DEFGENERIC PCL::EMIT-GREATER-THAN-1-DLAP
  150.             PCL::EMIT-1-T-DLAP
  151.             PCL::MAKE-METHOD-INITARGS-FORM-INTERNAL
  152.             PCL::ENTRY-IN-CACHE-P PCL::CONVERT-TABLE
  153.             PCL::MAKE-METHOD-SPEC PCL::TRACE-EMF-CALL-INTERNAL
  154.             PCL::FLUSH-CACHE-TRAP PCL::SET-FUNCTION-NAME-1
  155.             PCL::OBSOLETE-INSTANCE-TRAP
  156.             PCL::COMPUTE-PRECEDENCE PCL::PRINT-STD-INSTANCE
  157.             PCL::|SETF PCL METHOD-FUNCTION-GET|
  158.             PCL::|SETF PCL PLIST-VALUE|
  159.             WALKER::WITH-AUGMENTED-ENVIRONMENT-INTERNAL
  160.             PCL::CAN-OPTIMIZE-ACCESS PCL::OPTIMIZE-SLOT-VALUE
  161.             PCL::OPTIMIZE-SET-SLOT-VALUE PCL::DECLARE-STRUCTURE
  162.             PCL::OPTIMIZE-SLOT-BOUNDP
  163.             PCL::PRINT-CACHE PCL::COMPUTE-STD-CPL-PHASE-3
  164.             PCL::FIRST-FORM-TO-LISP
  165.             ITERATE::OPTIMIZE-ITERATE-FORM
  166.             PCL::WRAP-METHOD-GROUP-SPECIFIER-BINDINGS
  167.             PCL::MAKE-TOP-LEVEL-FORM PCL::INVALIDATE-WRAPPER
  168.             PCL::STANDARD-COMPUTE-EFFECTIVE-METHOD
  169.             PCL::MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
  170.             PCL::MAKE-OPTIMIZED-STD-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
  171.             PCL::MAKE-OPTIMIZED-STD-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION
  172.             WALKER::RECONS ITERATE::OPTIMIZE-GATHERING-FORM)) 
  173. (PROCLAIM
  174.     '(FTYPE (FUNCTION (T T T T) T) PCL::MAKE-EFFECTIVE-METHOD-FUNCTION1
  175.             PCL::MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL
  176.             PCL::MAKE-EFFECTIVE-METHOD-FUNCTION-TYPE
  177.             PCL::MEMF-TEST-CONVERTER
  178.             PCL::LOAD-PRECOMPILED-DFUN-CONSTRUCTOR
  179.             PCL::TWO-CLASS-DFUN-INFO
  180.             WALKER::WALK-LET/LET* WALKER::WALK-PROG/PROG*
  181.             WALKER::WALK-DO/DO*
  182.             WALKER::WALK-BINDINGS-2 PCL::OPTIMIZE-READER
  183.             PCL::OPTIMIZE-WRITER
  184.             PCL::EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY
  185.             PCL::MAYBE-EXPAND-ACCESSOR-FORM
  186.             PCL::INITIALIZE-INSTANCE-SIMPLE
  187.             PCL::GET-WRAPPERS-FROM-CLASSES
  188.             PCL::LOAD-PRECOMPILED-IIS-ENTRY
  189.             PCL::FILL-CACHE-P
  190.             PCL::ADJUST-CACHE
  191.             PCL::EXPAND-CACHE
  192.             PCL::EXPAND-SYMBOL-MACROLET-INTERNAL
  193.             PCL::BOOTSTRAP-SET-SLOT PCL::EXPAND-DEFCLASS PCL::GET-CACHE
  194.             )) 
  195. (PROCLAIM
  196.     '(FTYPE (FUNCTION (T T T T T) T) PCL::LOAD-FUNCTION-GENERATOR
  197.             PCL::EXPAND-EMF-CALL-METHOD PCL::MAKE-FGEN
  198.             PCL::BOOTSTRAP-MAKE-SLOT-DEFINITIONS
  199.             PCL::BOOTSTRAP-ACCESSOR-DEFINITIONS1
  200.             PCL::MAKE-FINAL-ORDINARY-DFUN-INTERNAL PCL::COMPUTE-PV-SLOT
  201.             WALKER::WALK-BINDINGS-1
  202.             PCL::OPTIMIZE-INSTANCE-ACCESS
  203.             PCL::OPTIMIZE-ACCESSOR-CALL
  204.             PCL::MAKE-METHOD-INITARGS-FORM-INTERNAL1
  205.             PCL::UPDATE-SLOTS-IN-PV
  206.             PCL::MAKE-PARAMETER-REFERENCES
  207.             PCL::MAKE-EMF-CACHE
  208.             PCL::GET-MAKE-INSTANCE-FUNCTION-INTERNAL
  209.             PCL::MAKE-INSTANCE-FUNCTION-COMPLEX
  210.             PCL::MAKE-INSTANCE-FUNCTION-SIMPLE
  211.             PCL::OPTIMIZE-GENERIC-FUNCTION-CALL
  212.             PCL::REAL-MAKE-METHOD-INITARGS-FORM
  213.             )) 
  214. (PROCLAIM
  215.     '(FTYPE (FUNCTION (T T *) T)
  216.             PCL::MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE
  217.             PCL::MAKE-EMF-FROM-METHOD
  218.             PCL::EXPAND-EFFECTIVE-METHOD-FUNCTION
  219.             PCL::NAMED-OBJECT-PRINT-FUNCTION PCL::FIND-CLASS-FROM-CELL
  220.             PCL::FIND-CLASS-PREDICATE-FROM-CELL PCL::INITIALIZE-INFO
  221.             PCL::GET-EFFECTIVE-METHOD-FUNCTION1 PCL::GET-DECLARATION
  222.             PCL::GET-METHOD-FUNCTION-PV-CELL
  223.             PCL:ENSURE-GENERIC-FUNCTION-USING-CLASS PCL::EMIT-MISS
  224.             PCL::METHOD-FUNCTION-GET PCL::PROBE-CACHE PCL::MAP-CACHE
  225.             PCL::GET-CACHE-FROM-CACHE PCL::PRECOMPUTE-EFFECTIVE-METHODS
  226.             PCL::RECORD-DEFINITION WALKER::CONVERT-MACRO-TO-LAMBDA
  227.             PCL::CPL-ERROR PCL::REAL-ADD-METHOD
  228.             PCL::REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
  229.             PCL::REAL-ENSURE-GF-USING-CLASS--NULL
  230.             PCL::COMPUTE-SECONDARY-DISPATCH-FUNCTION1)) 
  231. (PROCLAIM
  232.     '(FTYPE (FUNCTION (T T T T T T T T) T)
  233.             PCL::GET-SECONDARY-DISPATCH-FUNCTION2)) 
  234. (PROCLAIM
  235.     '(FTYPE (FUNCTION (T T T T T T) T)
  236.             PCL::BOOTSTRAP-MAKE-SLOT-DEFINITION PCL::EMIT-SLOT-ACCESS
  237.             PCL::OPTIMIZE-GF-CALL PCL::SET-ARG-INFO1 PCL::LOAD-DEFCLASS
  238.             PCL::MAKE-EARLY-CLASS-DEFINITION)) 
  239. (PROCLAIM
  240.     '(FTYPE (FUNCTION (T T T T *) T) PCL::FILL-DFUN-CACHE
  241.             PCL::EARLY-ADD-NAMED-METHOD PCL::REAL-ADD-NAMED-METHOD)) 
  242. (PROCLAIM
  243.     '(FTYPE (FUNCTION (T T T T T T *) T) PCL::LOAD-DEFMETHOD
  244.             PCL::MAKE-DEFMETHOD-FORM PCL::MAKE-DEFMETHOD-FORM-INTERNAL
  245.             PCL::EARLY-MAKE-A-METHOD)) 
  246. (PROCLAIM
  247.     '(FTYPE (FUNCTION (T T T *) T) PCL::CHECK-INITARGS-2-PLIST
  248.             PCL::CHECK-INITARGS-2-LIST WALKER::WALK-ARGLIST
  249.             PCL::MAKE-EMF-CALL PCL::CAN-OPTIMIZE-ACCESS1
  250.             PCL::EMIT-FETCH-WRAPPER PCL::FILL-CACHE
  251.             PCL::REAL-GET-METHOD PCL::CHECK-INITARGS-1 PCL::GET-METHOD)) 
  252. (PROCLAIM
  253.     '(FTYPE (FUNCTION (T T T T T *) T) PCL::EMIT-DLAP
  254.             PCL::GET-SECONDARY-DISPATCH-FUNCTION1)) 
  255. (PROCLAIM
  256.     '(FTYPE (FUNCTION (T T T FIXNUM) T) PCL::FILL-CACHE-FROM-CACHE-P)) 
  257. (PROCLAIM
  258.     '(FTYPE (FUNCTION (T T T T T T T) T) PCL::EXPAND-DEFMETHOD
  259.             PCL::LOAD-DEFMETHOD-INTERNAL
  260.             )) 
  261. (PROCLAIM
  262.     '(FTYPE (FUNCTION (T T T T T T T T T *) T)
  263.             PCL::BOOTSTRAP-INITIALIZE-CLASS)) 
  264. (PROCLAIM
  265.     '(FTYPE (FUNCTION NIL *) PCL::COUNT-ALL-DFUNS PCL::RENEW-SYS-FILES
  266.             PCL::EMIT-N-N-READERS PCL::EMIT-N-N-WRITERS)) 
  267. (PROCLAIM
  268.     '(FTYPE (FUNCTION NIL T) PCL::GET-EFFECTIVE-METHOD-GENSYM
  269.             PCL::SHOW-EMF-CALL-TRACE PCL::BOOTSTRAP-META-BRAID
  270.             PCL::BOOTSTRAP-BUILT-IN-CLASSES PCL::LIST-ALL-DFUNS
  271.             PCL::DEFAULT-METHOD-ONLY-DFUN-INFO
  272.             PCL::INITIALIZE-CHECKING-OR-CACHING-FUNCTION-LIST
  273.             PCL::CACHES-TO-ALLOCATE PCL::UPDATE-DISPATCH-DFUNS
  274.             PCL::MAKE-CACHE PCL::RESET-PCL-PACKAGE
  275.             PCL::IN-THE-COMPILER-P PCL::STRUCTURE-FUNCTIONS-EXIST-P
  276.             PCL::ALLOCATE-FUNCALLABLE-INSTANCE-2
  277.             PCL::%%ALLOCATE-INSTANCE--CLASS
  278.             PCL::ALLOCATE-FUNCALLABLE-INSTANCE-1
  279.             PCL::DISPATCH-DFUN-INFO PCL::INITIAL-DISPATCH-DFUN-INFO
  280.             PCL::INITIAL-DFUN-INFO PCL::NO-METHODS-DFUN-INFO
  281.             PCL::SHOW-FREE-CACHE-VECTORS PCL::MAKE-CPD
  282.             PCL::MAKE-ARG-INFO PCL::SHOW-DFUN-CONSTRUCTORS)) 
  283. (PROCLAIM
  284.     '(FTYPE (FUNCTION (*) *) PCL::UNTRACE-METHOD
  285.             PCL:INVALID-METHOD-ERROR PCL:METHOD-COMBINATION-ERROR
  286.             PCL::LIST-LARGE-CACHES
  287.             PCL::UPDATE-MAKE-INSTANCE-FUNCTION-TABLE)) 
  288. (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T *) *) PCL::FIND-FREE-CACHE-LINE)) 
  289. (PROCLAIM
  290.     '(FTYPE (FUNCTION (FIXNUM T T) *) PCL::COMPUTE-CACHE-PARAMETERS)) 
  291. (PROCLAIM
  292.     '(FTYPE (FUNCTION (*) T) PCL::|__si::MAKE-DFUN-INFO|
  293.             PCL::|__si::MAKE-NO-METHODS| PCL::|__si::MAKE-INITIAL|
  294.             PCL::|__si::MAKE-INITIAL-DISPATCH|
  295.             PCL::|__si::MAKE-DISPATCH|
  296.             PCL::|__si::MAKE-DEFAULT-METHOD-ONLY|
  297.             PCL::|__si::MAKE-ACCESSOR-DFUN-INFO|
  298.             PCL::|__si::MAKE-ONE-INDEX-DFUN-INFO|
  299.             PCL::MAKE-FAST-METHOD-CALL PCL::|__si::MAKE-N-N|
  300.             PCL::MAKE-FAST-INSTANCE-BOUNDP PCL::|__si::MAKE-ONE-CLASS|
  301.             PCL::|__si::MAKE-TWO-CLASS| PCL::|__si::MAKE-ONE-INDEX|
  302.             PCL::|__si::MAKE-CHECKING| PCL::|__si::MAKE-ARG-INFO|
  303.             PCL::FIX-EARLY-GENERIC-FUNCTIONS PCL::STRING-APPEND
  304.             PCL::|__si::MAKE-CACHING| PCL::|__si::MAKE-CONSTANT-VALUE|
  305.             PCL::FALSE PCL::|STRUCTURE-OBJECT class constructor|
  306.             PCL::PV-WRAPPERS-FROM-PV-ARGS PCL::MAKE-PV-TABLE
  307.             PCL::|__si::MAKE-PV-TABLE| PCL::INTERN-PV-TABLE
  308.             PCL::CALLED-FIN-WITHOUT-FUNCTION
  309.             PCL::|__si::MAKE-STD-INSTANCE| PCL::TRUE
  310.             PCL::MAKE-INITIALIZE-INFO PCL::|__si::MAKE-CACHE|
  311.             PCL::MAKE-PROGN WALKER::UNBOUND-LEXICAL-FUNCTION
  312.             PCL::|__si::MAKE-CLASS-PRECEDENCE-DESCRIPTION|
  313.             PCL::MAKE-METHOD-CALL)) 
  314. (PROCLAIM
  315.     '(FTYPE (FUNCTION (T) *) PCL::TYPE-FROM-SPECIALIZER
  316.             PCL::*NORMALIZE-TYPE PCL::UNPARSE-TYPE
  317.             PCL::DEFAULT-CODE-CONVERTER PCL::CONVERT-TO-SYSTEM-TYPE
  318.             PCL::EMIT-CONSTANT-VALUE PCL::SFUN-P PCL::PCL-DESCRIBE
  319.             PCL::GET-GENERIC-FUNCTION-INFO PCL::EARLY-METHOD-FUNCTION
  320.             PCL::EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME
  321.             PCL::SPECIALIZER-FROM-TYPE PCL::CLASS-EQ-TYPE
  322.             COMPILER::CAN-USE-PRINT-CIRCLE-P PCL::STRUCTURE-WRAPPER
  323.             PCL::FIND-STRUCTURE-CLASS PCL::MAKE-DISPATCH-DFUN
  324.             PCL::FIND-WRAPPER PCL::PARSE-DEFMETHOD
  325.             PCL::PROTOTYPES-FOR-MAKE-METHOD-LAMBDA
  326.             PCL::FORCE-CACHE-FLUSHES PCL::EMIT-ONE-CLASS-READER
  327.             PCL::EMIT-ONE-CLASS-WRITER PCL::EMIT-TWO-CLASS-READER
  328.             PCL::EMIT-TWO-CLASS-WRITER PCL::EMIT-ONE-INDEX-READERS
  329.             PCL::EMIT-ONE-INDEX-WRITERS PCL::NET-CODE-CONVERTER
  330.             PCL::EMIT-IN-CHECKING-CACHE-P PCL::COMPILE-IIS-FUNCTIONS
  331.             PCL::ANALYZE-LAMBDA-LIST
  332.             PCL::COMPUTE-APPLICABLE-METHODS-EMF
  333.             PCL::GET-DISPATCH-FUNCTION PCL::INSURE-CACHING-DFUN
  334.             PCL::%FBOUNDP PCL::CCLOSUREP PCL::GENERIC-FUNCTION-NAME-P
  335.             PCL::MAKE-FINAL-DISPATCH-DFUN
  336.             PCL::STRUCTURE-SLOTD-INIT-FORM
  337.             PCL::PARSE-METHOD-GROUP-SPECIFIER
  338.             PCL::METHOD-PROTOTYPE-FOR-GF
  339.             PCL::EARLY-COLLECT-INHERITANCE)) 
  340. (PROCLAIM
  341.     '(FTYPE (FUNCTION (T) T) PCL::UNENCAPSULATED-FDEFINITION
  342.             PCL::DFUN-INFO-P PCL::NO-METHODS-P
  343.             PCL::MAKE-TYPE-PREDICATE
  344.             PCL::DEFAULT-TEST-CONVERTER PCL::INITIAL-P
  345.             PCL::UNPARSE-TYPE-LIST PCL::MAKE-CALL-METHODS
  346.             PCL::DEFAULT-CONSTANT-CONVERTER PCL::INITIAL-DISPATCH-P
  347.             PCL::DISPATCH-P PCL::GBOUNDP PCL::GMAKUNBOUND
  348.             PCL::DEFAULT-CONSTANTP PCL::DEFAULT-METHOD-ONLY-P
  349.             PCL::FGEN-TEST PCL::LOOKUP-FGEN PCL::ACCESSOR-DFUN-INFO-P
  350.             PCL::FGEN-GENERATOR PCL::FGEN-SYSTEM
  351.             PCL::ONE-INDEX-DFUN-INFO-P PCL::FAST-METHOD-CALL-P
  352.             PCL::N-N-P PCL::FAST-INSTANCE-BOUNDP-P
  353.             PCL::METHOD-FUNCTION-PV-TABLE PCL::METHOD-FUNCTION-METHOD
  354.             PCL::STORE-FGEN PCL::ONE-CLASS-P
  355.             PCL::METHOD-FUNCTION-NEEDS-NEXT-METHODS-P
  356.             PCL::FTYPE-DECLARATION-FROM-LAMBDA-LIST PCL::FGEN-GENSYMS
  357.             PCL::TWO-CLASS-P PCL::ARG-INFO-LAMBDA-LIST
  358.             PCL::ARG-INFO-PRECEDENCE PCL::ARG-INFO-METATYPES
  359.             PCL::FGEN-GENERATOR-LAMBDA SYSTEM:%STRUCTURE-NAME
  360.             PCL::ARG-INFO-NUMBER-OPTIONAL
  361.             SYSTEM:%COMPILED-FUNCTION-NAME PCL::ARG-INFO-KEY/REST-P
  362.             PCL::ONE-INDEX-P PCL::ARG-INFO-KEYWORDS
  363.             PCL::GF-INFO-SIMPLE-ACCESSOR-TYPE
  364.             PCL::GF-PRECOMPUTE-DFUN-AND-EMF-P
  365.             PCL::GF-INFO-STATIC-C-A-M-EMF PCL::CHECKING-P
  366.             PCL::GF-INFO-C-A-M-EMF-STD-P PCL::GF-INFO-FAST-MF-P
  367.             PCL::UNDEFMETHOD-1 PCL::ARG-INFO-P
  368.             PCL::FAST-METHOD-CALL-ARG-INFO PCL::ARG-INFO-NKEYS
  369.             PCL::GF-DFUN-CACHE PCL:CLASS-OF PCL::GF-DFUN-INFO
  370.             PCL::FUNCTION-RETURNING-NIL
  371.             PCL::ACCESSOR-DFUN-INFO-ACCESSOR-TYPE PCL::EVAL-FORM
  372.             PCL::ONE-INDEX-DFUN-INFO-INDEX
  373.             PCL::SLOT-INITARGS-FROM-STRUCTURE-SLOTD PCL::TYPE-CLASS
  374.             PCL::ONE-CLASS-WRAPPER0 PCL::EXTRACT-PARAMETERS
  375.             PCL::CLASS-PREDICATE PCL::EXTRACT-REQUIRED-PARAMETERS
  376.             PCL::MAKE-CLASS-EQ-PREDICATE PCL::TWO-CLASS-WRAPPER1
  377.             PCL::MAKE-EQL-PREDICATE PCL::CHECKING-FUNCTION
  378.             PCL::BOOTSTRAP-ACCESSOR-DEFINITIONS
  379.             PCL::INITIALIZE-INFO-KEY PCL::BOOTSTRAP-CLASS-PREDICATES
  380.             PCL::GET-BUILT-IN-CLASS-SYMBOL PCL::INITIALIZE-INFO-WRAPPER
  381.             PCL::GET-BUILT-IN-WRAPPER-SYMBOL PCL::DO-STANDARD-DEFSETF-1
  382.             PCL::CACHING-P PCL::GFS-OF-TYPE PCL::LEGAL-CLASS-NAME-P
  383.             PCL::STRUCTURE-TYPE-P PCL::CONSTANT-VALUE-P
  384.             PCL::USE-DEFAULT-METHOD-ONLY-DFUN-P
  385.             SYSTEM::NEXT-STACK-FRAME PCL::WRAPPER-FIELD
  386.             PCL::NEXT-WRAPPER-FIELD PCL::SETFBOUNDP
  387.             PCL::GET-SETF-FUNCTION-NAME PCL::USE-CACHING-DFUN-P
  388.             PCL::MAKE-PV-TYPE-DECLARATION
  389.             PCL::MAKE-CALLS-TYPE-DECLARATION PCL::MAP-SPECIALIZERS
  390.             WALKER:VARIABLE-GLOBALLY-SPECIAL-P PCL::SLOT-VECTOR-SYMBOL
  391.             PCL::MAKE-PERMUTATION-VECTOR PCL::STRUCTURE-OBJECT-P
  392.             PCL::EXPAND-MAKE-INSTANCE-FORM PCL::MAKE-CONSTANT-FUNCTION
  393.             PCL::FUNCTION-RETURNING-T PCL::SORT-SLOTS PCL::SORT-CALLS
  394.             PCL::SYMBOL-PKG-NAME
  395.             PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P
  396.             PCL::INITIALIZE-INFO-BOUND-SLOTS
  397.             PCL::INITIALIZE-INFO-CACHED-VALID-P
  398.             PCL::GET-MAKE-INSTANCE-FUNCTIONS
  399.             PCL::INITIALIZE-INFO-CACHED-RI-VALID-P
  400.             PCL::INITIALIZE-INFO-CACHED-INITARGS-FORM-LIST
  401.             PCL::INITIALIZE-INFO-CACHED-NEW-KEYS
  402.             PCL::UPDATE-C-A-M-GF-INFO
  403.             PCL::INITIALIZE-INFO-CACHED-DEFAULT-INITARGS-FUNCTION
  404.             PCL::UPDATE-GF-SIMPLE-ACCESSOR-TYPE
  405.             PCL::UPDATE-GFS-OF-CLASS
  406.             PCL::INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION
  407.             PCL::DO-STANDARD-DEFSETFS-FOR-DEFCLASS
  408.             PCL::STANDARD-SVUC-METHOD
  409.             PCL::INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION
  410.             PCL:EXTRACT-LAMBDA-LIST PCL::%CCLOSURE-ENV
  411.             PCL::STRUCTURE-SVUC-METHOD
  412.             PCL::INITIALIZE-INFO-CACHED-CONSTANTS
  413.             PCL:EXTRACT-SPECIALIZER-NAMES PCL::METHOD-FUNCTION-PLIST
  414.             PCL::INITIALIZE-INFO-CACHED-COMBINED-INITIALIZE-FUNCTION
  415.             PCL::INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION
  416.             PCL::INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL
  417.             PCL::INTERNED-SYMBOL-P PCL::GDEFINITION
  418.             PCL::UPDATE-CLASS-CAN-PRECEDE-P PCL::%STD-INSTANCE-WRAPPER
  419.             PCL::%STD-INSTANCE-SLOTS PCL::PV-TABLEP PCL::STD-INSTANCE-P
  420.             PCL::COMPUTE-MCASE-PARAMETERS PCL::COMPUTE-CLASS-SLOTS
  421.             PCL::MAKE-PV-TABLE-TYPE-DECLARATION PCL::NET-TEST-CONVERTER
  422.             PCL:INTERN-EQL-SPECIALIZER
  423.             PCL::MAKE-INSTANCE-FUNCTION-SYMBOL
  424.             PCL::UPDATE-ALL-C-A-M-GF-INFO
  425.             PCL::UPDATE-PV-TABLE-CACHE-INFO PCL::DFUN-INFO-CACHE
  426.             PCL::NO-METHODS-CACHE PCL::ARG-INFO-APPLYP
  427.             PCL::INITIAL-CACHE PCL::INITIAL-DISPATCH-CACHE
  428.             PCL::CHECK-CACHE PCL::DISPATCH-CACHE PCL::CLASS-FROM-TYPE
  429.             PCL::DEFAULT-METHOD-ONLY-CACHE PCL::DNET-METHODS-P
  430.             PCL::ACCESSOR-DFUN-INFO-CACHE
  431.             PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION
  432.             PCL::ONE-INDEX-DFUN-INFO-CACHE
  433.             PCL::ONE-INDEX-DFUN-INFO-ACCESSOR-TYPE
  434.             PCL::METHOD-CALL-CALL-METHOD-ARGS PCL::KEYWORD-SPEC-NAME
  435.             PCL::N-N-CACHE PCL::GENERIC-CLOBBERS-FUNCTION
  436.             PCL::N-N-ACCESSOR-TYPE PCL::FAST-METHOD-CALL-PV-CELL
  437.             PCL::WRAPPER-FOR-STRUCTURE PCL::ONE-CLASS-CACHE
  438.             PCL::FAST-METHOD-CALL-NEXT-METHOD-CALL
  439.             PCL::ONE-CLASS-ACCESSOR-TYPE PCL::ONE-CLASS-INDEX
  440.             PCL::BUILT-IN-WRAPPER-OF PCL::TWO-CLASS-CACHE
  441.             PCL::BUILT-IN-OR-STRUCTURE-WRAPPER1
  442.             PCL::TWO-CLASS-ACCESSOR-TYPE PCL::TWO-CLASS-INDEX
  443.             PCL::ALLOCATE-CACHE-VECTOR PCL::TWO-CLASS-WRAPPER0
  444.             PCL::FLUSH-CACHE-VECTOR-INTERNAL PCL::ONE-INDEX-CACHE
  445.             PCL::EARLY-CLASS-NAME PCL::ONE-INDEX-ACCESSOR-TYPE
  446.             PCL::ONE-INDEX-INDEX PCL::INTERN-FUNCTION-NAME
  447.             PCL::CHECKING-CACHE PCL::COMPILE-LAMBDA-UNCOMPILED
  448.             PCL::GF-LAMBDA-LIST PCL::CACHING-CACHE
  449.             PCL::CONSTANT-VALUE-CACHE PCL::COMPILE-LAMBDA-DEFERRED
  450.             PCL::FUNCALLABLE-INSTANCE-P
  451.             PCL::RESET-CLASS-INITIALIZE-INFO PCL::GET-CACHE-VECTOR
  452.             PCL::CONSTANT-SYMBOL-P PCL::FREE-CACHE-VECTOR
  453.             PCL::EARLY-METHOD-LAMBDA-LIST PCL::ARG-INFO-VALID-P
  454.             PCL::DFUN-ARG-SYMBOL PCL::EARLY-METHOD-CLASS
  455.             PCL::EARLY-GF-P PCL::EARLY-GF-NAME PCL::CACHING-DFUN-INFO
  456.             PCL::COMPUTE-APPLICABLE-METHODS-EMF-STD-P
  457.             PCL::CONSTANT-VALUE-DFUN-INFO
  458.             PCL::RESET-CLASS-INITIALIZE-INFO-1 PCL::FREE-CACHE
  459.             PCL::PARSE-SPECIALIZERS PCL::RESET-INITIALIZE-INFO
  460.             PCL::EARLY-METHOD-QUALIFIERS
  461.             PCL::PROCLAIM-INCOMPATIBLE-SUPERCLASSES PCL::WRAPPER-OF
  462.             PCL::EARLY-METHOD-STANDARD-ACCESSOR-P
  463.             PCL::FUNCTION-PRETTY-ARGLIST
  464.             PCL::GET-MAKE-INSTANCE-FUNCTION PCL::CHECK-WRAPPER-VALIDITY
  465.             PCL::UNPARSE-SPECIALIZERS PCL::%SYMBOL-FUNCTION
  466.             PCL::FINAL-ACCESSOR-DFUN-TYPE
  467.             PCL::COMPLICATED-INSTANCE-CREATION-METHOD
  468.             PCL::DEFAULT-STRUCTUREP PCL::UPDATE-GF-INFO
  469.             PCL::CACHE-OWNER PCL::DEFAULT-STRUCTURE-INSTANCE-P
  470.             PCL::DEFAULT-STRUCTURE-TYPE PCL::STRUCTURE-TYPE
  471.             PCL::COMPUTE-STD-CPL-PHASE-2 PCL::GET-PV-CELL-FOR-CLASS
  472.             PCL::STRUCTURE-TYPE-INCLUDED-TYPE-NAME
  473.             PCL::STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST PCL::CACHE-P
  474.             PCL::STRUCTURE-SLOTD-NAME
  475.             PCL::STRUCTURE-SLOTD-ACCESSOR-SYMBOL
  476.             PCL::DEFAULT-SECONDARY-DISPATCH-FUNCTION
  477.             PCL::STRUCTURE-SLOTD-WRITER-FUNCTION
  478.             PCL::FIND-CYCLE-REASONS PCL::EARLY-CLASS-DEFINITION
  479.             PCL::ECD-SOURCE PCL::STRUCTURE-SLOTD-TYPE
  480.             PCL::FORMAT-CYCLE-REASONS PCL::ECD-METACLASS PCL::CPD-CLASS
  481.             PCL::EARLY-CLASS-PRECEDENCE-LIST
  482.             PCL::METHODS-CONTAIN-EQL-SPECIALIZER-P PCL::CPD-SUPERS
  483.             PCL::EXPAND-LONG-DEFCOMBIN PCL::EARLY-CLASS-NAME-OF
  484.             PCL::CPD-AFTER PCL::EXPAND-SHORT-DEFCOMBIN
  485.             PCL::EARLY-CLASS-SLOTDS PCL::CPD-COUNT
  486.             PCL::EARLY-SLOT-DEFINITION-NAME PCL::SLOT-READER-SYMBOL
  487.             PCL::EARLY-SLOT-DEFINITION-LOCATION WALKER::ENV-LOCK
  488.             PCL::MAKE-INITIAL-DFUN PCL::EARLY-ACCESSOR-METHOD-SLOT-NAME
  489.             PCL::SLOT-WRITER-SYMBOL WALKER::ENV-DECLARATIONS
  490.             WALKER::ENV-LEXICAL-VARIABLES PCL::LIST-DFUN
  491.             PCL::SLOT-BOUNDP-SYMBOL PCL::MAP-ALL-GENERIC-FUNCTIONS
  492.             PCL::MAKE-STRUCTURE-SLOT-BOUNDP-FUNCTION
  493.             PCL::EARLY-CLASS-DIRECT-SUBCLASSES
  494.             PCL::MAKE-FUNCTION-INLINE PCL::LIST-LARGE-CACHE
  495.             PCL::CLASS-PRECEDENCE-DESCRIPTION-P
  496.             PCL::INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS
  497.             PCL::MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION
  498.             PCL::MAKE-OPTIMIZED-STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
  499.             WALKER::ENV-WALK-FUNCTION
  500.             WALKER::GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE
  501.             PCL::COUNT-DFUN PCL::MAKE-INITFUNCTION
  502.             PCL::MAKE-OPTIMIZED-STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
  503.             ITERATE::VARIABLES-FROM-LET WALKER::ENV-WALK-FORM
  504.             PCL::MAKE-OPTIMIZED-STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION
  505.             PCL::INITIALIZE-INFO-P PCL::ECD-CLASS-NAME PCL::COPY-CACHE
  506.             PCL::COMPUTE-LINE-SIZE PCL::CANONICAL-SLOT-NAME
  507.             WALKER::GET-WALKER-TEMPLATE PCL::EARLY-CLASS-SLOTS
  508.             PCL::STRUCTURE-TYPE-INTERNAL-SLOTDS PCL::EARLY-COLLECT-CPL
  509.             PCL::EARLY-COLLECT-SLOTS
  510.             PCL::METHOD-LL->GENERIC-FUNCTION-LL
  511.             PCL::EARLY-COLLECT-DEFAULT-INITARGS
  512.             PCL::ECD-SUPERCLASS-NAMES PCL::METHOD-CALL-P
  513.             PCL::STRUCTURE-SLOT-BOUNDP ITERATE::SEQUENCE-ACCESSOR
  514.             PCL::ECD-CANONICAL-SLOTS PCL::ECD-OTHER-INITARGS)) 
  515. (PROCLAIM
  516.     '(FTYPE (FUNCTION (T *) *) PCL::COERCE-TO-CLASS
  517.             PCL::GET-METHOD-FUNCTION WALKER:MACROEXPAND-ALL
  518.             PCL::GET-FUNCTION PCL::GET-FUNCTION1
  519.             PCL:ENSURE-GENERIC-FUNCTION PCL::PARSE-METHOD-OR-SPEC
  520.             PCL::EXTRACT-DECLARATIONS PCL::GET-DFUN-CONSTRUCTOR
  521.             PCL::MAP-ALL-CLASSES PCL::MAKE-CACHING-DFUN
  522.             WALKER:WALK-FORM PCL:ENSURE-CLASS
  523.             PCL::MAKE-METHOD-FUNCTION-INTERNAL
  524.             PCL::PARSE-SPECIALIZED-LAMBDA-LIST
  525.             PCL::MAKE-METHOD-LAMBDA-INTERNAL
  526.             PCL::MAKE-CONSTANT-VALUE-DFUN PCL::MAKE-FINAL-DFUN-INTERNAL
  527.             PCL::COMPILE-LAMBDA)) 
  528. (PROCLAIM '(FTYPE (FUNCTION (T T *) (VALUES T T)) PCL::SYMBOL-APPEND)) 
  529. (PROCLAIM '(FTYPE (FUNCTION (T *) STRING) PCL::CAPITALIZE-WORDS)) 
  530. (PROCLAIM
  531.     '(FTYPE (FUNCTION (T T) *) PCL::SAUT-CLASS
  532.             PCL::SPECIALIZER-APPLICABLE-USING-TYPE-P PCL::*TYPEP
  533.             PCL::COMPUTE-TEST PCL::GET-NEW-FUNCTION-GENERATOR-INTERNAL
  534.             PCL::COMPUTE-CODE PCL::CLASS-APPLICABLE-USING-CLASS-P
  535.             PCL::SAUT-AND PCL::SAUT-NOT PCL::SAUT-PROTOTYPE
  536.             COMPILER::CAN-USE-PRINT-CIRCLE-P1 PCL:SLOT-BOUNDP
  537.             PCL::DESTRUCTURE PCL:SLOT-MAKUNBOUND PCL:SLOT-VALUE
  538.             PCL::ENSURE-CLASS-VALUES PCL::MAKE-DIRECT-SLOTD
  539.             PCL::GENERATE-FAST-CLASS-SLOT-ACCESS-P
  540.             PCL::MUTATE-SLOTS-AND-CALLS PCL::INVOKE-EMF
  541.             PCL::EMIT-DEFAULT-ONLY-FUNCTION PCL::SPLIT-DECLARATIONS
  542.             PCL::EMIT-DEFAULT-ONLY COMPILER::C2LAMBDA-EXPR-WITH-KEY
  543.             PCL::SLOT-NAME-LISTS-FROM-SLOTS PCL::EMIT-CHECKING
  544.             PCL::UPDATE-SLOT-VALUE-GF-INFO PCL::EMIT-CACHING
  545.             PCL::SDFUN-FOR-CACHING PCL::SLOT-UNBOUND-INTERNAL
  546.             PCL::MAKE-INSTANCE-1 PCL::SET-FUNCTION-NAME
  547.             PCL::COMPUTE-STD-CPL-PHASE-1 PCL::FORM-LIST-TO-LISP
  548.             PCL::FIND-SUPERCLASS-CHAIN PCL::SAUT-CLASS-EQ
  549.             PCL::COMPUTE-APPLICABLE-METHODS-USING-TYPES
  550.             PCL::CHECK-INITARGS-VALUES PCL::SAUT-EQL PCL::*SUBTYPEP
  551.             ITERATE::PARSE-DECLARATIONS PCL::INITIAL-DFUN)) 
  552. (PROCLAIM
  553.     '(FTYPE (FUNCTION (T *) T) PCL::MAKE-TYPE-PREDICATE-NAME
  554.             PCL::SET-DFUN PCL:FIND-CLASS PCL::TRACE-METHOD
  555.             PCL::FIND-CLASS-CELL PCL::MAKE-FINAL-DFUN
  556.             PCL::PV-TABLE-LOOKUP-PV-ARGS PCL::USE-DISPATCH-DFUN-P
  557.             WALKER::RELIST* WALKER::RELIST PCL::FIND-CLASS-PREDICATE
  558.             PCL::EARLY-METHOD-SPECIALIZERS
  559.             PCL::USE-CONSTANT-VALUE-DFUN-P PCL::MAKE-EARLY-GF
  560.             PCL::ALLOCATE-FUNCALLABLE-INSTANCE PCL::SET-ARG-INFO
  561.             PCL::INITIALIZE-METHOD-FUNCTION PCL::UPDATE-DFUN
  562.             PCL::MAKE-SPECIALIZABLE PCL::ALLOCATE-STRUCTURE-INSTANCE
  563.             PCL::ALLOCATE-STANDARD-INSTANCE
  564.             WALKER::WALKER-ENVIRONMENT-BIND-1
  565.             ITERATE::FUNCTION-LAMBDA-P ITERATE::MAYBE-WARN
  566.             PCL::MAKE-WRAPPER)) 
  567. (PROCLAIM
  568.     '(FTYPE (FUNCTION (T T T) (*)) PCL::SORT-APPLICABLE-METHODS
  569.             PCL::SORT-METHODS)) 
  570. (PROCLAIM
  571.     '(FTYPE (FUNCTION (T T) T) PCL::FDEFINE-CAREFULLY
  572.             PCL::MAKE-INTERNAL-READER-METHOD-FUNCTION
  573.             PCL::MAKE-STD-READER-METHOD-FUNCTION
  574.             PCL::MAKE-STD-WRITER-METHOD-FUNCTION
  575.             ITERATE::SIMPLE-EXPAND-ITERATE-FORM
  576.             PCL::MAKE-STD-BOUNDP-METHOD-FUNCTION
  577.             PCL::DO-SATISFIES-DEFTYPE PCL::MEMF-CONSTANT-CONVERTER
  578.             PCL::COMPUTE-CONSTANTS PCL::CLASS-CAN-PRECEDE-P
  579.             PCL::SAUT-NOT-CLASS PCL::SAUT-NOT-CLASS-EQ
  580.             PCL::SAUT-NOT-PROTOTYPE PCL::GF-MAKE-FUNCTION-FROM-EMF
  581.             PCL::SAUT-NOT-EQL PCL::SUPERCLASSES-COMPATIBLE-P
  582.             PCL::CLASSES-HAVE-COMMON-SUBCLASS-P
  583.             SYSTEM:%SET-COMPILED-FUNCTION-NAME PCL:ADD-METHOD
  584.             SYSTEM::DISPLAY-ENV PCL::DESCRIBE-PACKAGE
  585.             SYSTEM::DISPLAY-COMPILED-ENV
  586.             PCL::PRINTING-RANDOM-THING-INTERNAL
  587.             PCL::MAKE-CLASS-PREDICATE
  588.             PCL::METHOD-FUNCTION-RETURNING-NIL
  589.             PCL::METHOD-FUNCTION-RETURNING-T PCL::VARIABLE-CLASS
  590.             PCL::MAKE-PLIST PCL::REMTAIL PCL:REMOVE-METHOD
  591.             PCL:SLOT-EXISTS-P PCL::DESTRUCTURE-INTERNAL
  592.             PCL::ACCESSOR-MISS-FUNCTION
  593.             PCL::UPDATE-INITIALIZE-INFO-INTERNAL PCL::N-N-DFUN-INFO
  594.             PCL::MAKE-CAXR PCL::MAKE-CDXR WALKER:VARIABLE-LEXICAL-P
  595.             WALKER:VARIABLE-SPECIAL-P PCL::CHECKING-DFUN-INFO
  596.             PCL::MAKE-PV-TABLE-INTERNAL PCL::FIND-SLOT-DEFINITION
  597.             WALKER::WALK-REPEAT-EVAL WALKER::NOTE-DECLARATION
  598.             PCL::MAKE-DFUN-LAMBDA-LIST WALKER::NOTE-LEXICAL-BINDING
  599.             PCL::MAKE-DLAP-LAMBDA-LIST PCL::ADD-DIRECT-SUBCLASSES
  600.             PCL::COMPUTE-PV PCL::MAKE-DFUN-ARG-LIST PCL::COMPUTE-CALLS
  601.             PCL::MAKE-FAST-METHOD-CALL-LAMBDA-LIST
  602.             PCL::UPDATE-ALL-PV-TABLE-CACHES PCL::UPDATE-CLASS
  603.             PCL::MAP-PV-TABLE-REFERENCES-OF PCL::ADD-SLOT-ACCESSORS
  604.             WALKER::ENVIRONMENT-FUNCTION PCL::REMOVE-DIRECT-SUBCLASSES
  605.             PCL::REMOVE-SLOT-ACCESSORS PCL::SYMBOL-LESSP
  606.             PCL::SYMBOL-OR-CONS-LESSP PCL::|SETF PCL FIND-CLASS|
  607.             PCL::|SETF PCL FIND-CLASS-PREDICATE|
  608.             PCL::PV-WRAPPERS-FROM-ALL-ARGS PCL::PV-TABLE-LOOKUP
  609.             PCL::PROCLAIM-DEFGENERIC PCL::UPDATE-CPL PCL::LIST-EQ
  610.             PCL::UPDATE-SLOTS PCL::COMPUTE-APPLICABLE-METHODS-FUNCTION
  611.             PCL::COMPUTE-EMF-FROM-WRAPPERS PCL::UPDATE-INITS
  612.             PCL::UPDATE-STD-OR-STR-METHODS
  613.             PCL::SET-STANDARD-SVUC-METHOD PCL::EMIT-1-NIL-DLAP
  614.             PCL::PLIST-VALUE PCL::SET-STRUCTURE-SVUC-METHOD
  615.             PCL::EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
  616.             PCL:FUNCALLABLE-STANDARD-INSTANCE-ACCESS
  617.             PCL::MEC-ALL-CLASSES-INTERNAL
  618.             PCL::EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
  619.             PCL::MEC-ALL-CLASSES PCL::%SET-CCLOSURE-ENV
  620.             PCL::MEC-ALL-CLASS-LISTS PCL::REDEFINE-FUNCTION
  621.             PCL::METHODS-CONVERTER PCL::COMPUTE-LAYOUT PCL::NO-SLOT
  622.             PCL::PV-WRAPPERS-FROM-ALL-WRAPPERS
  623.             PCL::NET-CONSTANT-CONVERTER PCL::AUGMENT-TYPE
  624.             PCL::CHANGE-CLASS-INTERNAL
  625.             PCL:SET-FUNCALLABLE-INSTANCE-FUNCTION
  626.             PCL::VALUE-FOR-CACHING PCL:STANDARD-INSTANCE-ACCESS
  627.             PCL::|SETF PCL METHOD-FUNCTION-PLIST| PCL::GET-KEY-ARG
  628.             PCL::GET-KEY-ARG1 PCL::SET-METHODS
  629.             PCL::SET-FUNCTION-PRETTY-ARGLIST
  630.             PCL::FIND-STANDARD-II-METHOD PCL::MAKE-EARLY-ACCESSOR
  631.             PCL::DOCTOR-DFUN-FOR-THE-DEBUGGER PCL::COMPUTE-STD-CPL
  632.             PCL::|SETF PCL GDEFINITION|
  633.             PCL::MAKE-DISCRIMINATING-FUNCTION-ARGLIST PCL::ADD-FORMS
  634.             PCL::CPL-INCONSISTENT-ERROR
  635.             PCL::REDIRECT-EARLY-FUNCTION-INTERNAL PCL::ADD-TO-CVECTOR
  636.             PCL::BOOTSTRAP-SLOT-INDEX PCL::QUALIFIER-CHECK-RUNTIME
  637.             PCL::CPL-FORWARD-REFERENCED-CLASS-ERROR
  638.             PCL::REAL-REMOVE-METHOD WALKER::ENVIRONMENT-MACRO
  639.             PCL::CANONICALIZE-SLOT-SPECIFICATION
  640.             PCL::CANONICALIZE-DEFCLASS-OPTION PCL::SET-WRAPPER
  641.             PCL::DEAL-WITH-ARGUMENTS-OPTION
  642.             PCL::PARSE-QUALIFIER-PATTERN PCL::SWAP-WRAPPERS-AND-SLOTS
  643.             ITERATE::MV-SETQ PCL::MAKE-UNORDERED-METHODS-EMF
  644.             PCL::CLASS-MIGHT-PRECEDE-P
  645.             ITERATE::EXTRACT-SPECIAL-BINDINGS
  646.             WALKER::VARIABLE-SYMBOL-MACRO-P PCL::RAISE-METATYPE)) 
  647. (PROCLAIM '(FTYPE (FUNCTION NIL FIXNUM) PCL::GET-WRAPPER-CACHE-NUMBER)) 
  648. (DOLIST (PCL::V '(PCL::ADD-READER-METHOD
  649.                      PCL::SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT
  650.                      PCL::REMOVE-READER-METHOD PCL::EQL-SPECIALIZER-P
  651.                      PCL::OBJECT-PLIST
  652.                      PCL::SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL
  653.                      PCL::SPECIALIZER-TYPE PCL::GF-DFUN-STATE
  654.                      PCL::CLASS-DEFSTRUCT-CONSTRUCTOR
  655.                      PCL::METHOD-FAST-FUNCTION PCL::SPECIALIZERP
  656.                      PCL::EXACT-CLASS-SPECIALIZER-P
  657.                      PCL::COMPATIBLE-META-CLASS-CHANGE-P
  658.                      PCL::UPDATE-GF-DFUN PCL::SPECIALIZER-OBJECT
  659.                      PCL::ACCESSOR-METHOD-SLOT-NAME
  660.                      PCL::SPECIALIZER-CLASS PCL::CLASS-EQ-SPECIALIZER-P
  661.                      PCL::SLOTS-FETCHER PCL::REMOVE-WRITER-METHOD
  662.                      PCL::STRUCTURE-CLASS-P 
  663.                      PCL::DOCUMENTATION PCL::METHOD-PRETTY-ARGLIST
  664.                      PCL::CLASS-EQ-SPECIALIZER
  665.                      PCL::INFORM-TYPE-SYSTEM-ABOUT-CLASS
  666.                      PCL::ACCESSOR-METHOD-CLASS
  667.                      PCL::GENERIC-FUNCTION-PRETTY-ARGLIST
  668.                      PCL::MAKE-BOUNDP-METHOD-FUNCTION
  669.                      PCL::CLASS-PREDICATE-NAME PCL::CLASSP
  670.                      PCL::LEGAL-QUALIFIERS-P PCL::ADD-BOUNDP-METHOD
  671.                      PCL::LEGAL-LAMBDA-LIST-P
  672.                      PCL::|SETF PCL GENERIC-FUNCTION-NAME|
  673.                      PCL::DESCRIBE-OBJECT PCL::CLASS-INITIALIZE-INFO
  674.                      PCL::MAKE-WRITER-METHOD-FUNCTION
  675.                      PCL::|SETF PCL GF-DFUN-STATE|
  676.                      PCL::|SETF PCL SLOT-DEFINITION-NAME|
  677.                      PCL::|SETF PCL CLASS-NAME|
  678.                      PCL::INITIALIZE-INTERNAL-SLOT-FUNCTIONS
  679.                      PCL::|SETF PCL SLOT-DEFINITION-TYPE|
  680.                      PCL::METHOD-COMBINATION-P
  681.                      PCL::|SETF PCL GENERIC-FUNCTION-METHODS|
  682.                      PCL::|SETF PCL GENERIC-FUNCTION-METHOD-COMBINATION|
  683.                      PCL::|SETF PCL METHOD-GENERIC-FUNCTION|
  684.                      PCL::|SETF PCL SLOT-ACCESSOR-STD-P|
  685.                      PCL::LEGAL-SPECIALIZERS-P
  686.                      PCL::|SETF PCL OBJECT-PLIST|
  687.                      PCL::|SETF PCL SLOT-DEFINITION-INITFORM|
  688.                      PCL::|SETF PCL CLASS-DEFSTRUCT-FORM|
  689.                      PCL::|SETF PCL GENERIC-FUNCTION-METHOD-CLASS|
  690.                      PCL::SLOT-ACCESSOR-STD-P
  691.                      PCL::|SETF PCL GF-PRETTY-ARGLIST|
  692.                      PCL::|SETF PCL SLOT-ACCESSOR-FUNCTION|
  693.                      PCL::|SETF PCL SLOT-DEFINITION-LOCATION|
  694.                      PCL::|SETF PCL SLOT-DEFINITION-READER-FUNCTION|
  695.                      PCL::|SETF PCL SLOT-DEFINITION-WRITER-FUNCTION|
  696.                      PCL::|SETF PCL SLOT-DEFINITION-BOUNDP-FUNCTION|
  697.                      PCL::|SETF PCL SLOT-DEFINITION-INTERNAL-READER-FUNCTION|
  698.                      PCL::|SETF PCL SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION|
  699.                      PCL::|SETF PCL SLOT-DEFINITION-ALLOCATION|
  700.                      PCL::|SETF PCL SLOT-DEFINITION-INITFUNCTION|
  701.                      PCL::METHOD-COMBINATION-OPTIONS
  702.                      PCL::|SETF PCL SLOT-DEFINITION-READERS|
  703.                      PCL::|SETF PCL DOCUMENTATION|
  704.                      PCL::FUNCALLABLE-STANDARD-CLASS-P
  705.                      PCL::|SETF PCL SLOT-DEFINITION-CLASS|
  706.                      PCL::|SETF PCL SLOT-VALUE-USING-CLASS|
  707.                      PCL::CLASS-CAN-PRECEDE-LIST
  708.                      PCL::|SETF PCL CLASS-DIRECT-SLOTS|
  709.                      PCL::|SETF PCL CLASS-SLOTS|
  710.                      PCL::SLOT-ACCESSOR-FUNCTION
  711.                      PCL::|SETF PCL CLASS-INCOMPATIBLE-SUPERCLASS-LIST|
  712.                      PCL::|SETF PCL SLOT-DEFINITION-WRITERS|
  713.                      PCL::SLOT-CLASS-P PCL::MAKE-READER-METHOD-FUNCTION
  714.                      PCL::LEGAL-METHOD-FUNCTION-P PCL::GET-METHOD
  715.                      PCL::SHORT-METHOD-COMBINATION-P PCL::GF-ARG-INFO
  716.                      PCL::SPECIALIZER-METHOD-TABLE
  717.                      PCL::MAKE-METHOD-INITARGS-FORM
  718.                      PCL::CLASS-DEFSTRUCT-FORM PCL::GF-PRETTY-ARGLIST
  719.                      PCL::SAME-SPECIALIZER-P
  720.                      PCL::SLOT-DEFINITION-BOUNDP-FUNCTION
  721.                      PCL::SLOT-DEFINITION-WRITER-FUNCTION
  722.                      PCL::SLOT-DEFINITION-READER-FUNCTION
  723.                      PCL::SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION
  724.                      PCL::SLOT-DEFINITION-INTERNAL-READER-FUNCTION
  725.                      PCL::SLOT-DEFINITION-CLASS
  726.                      PCL::EQL-SPECIALIZER-OBJECT
  727.                      PCL::CLASS-CONSTRUCTORS PCL::SLOTS-TO-INSPECT
  728.                      PCL::SPECIALIZER-DIRECT-GENERIC-FUNCTIONS
  729.                      PCL::ADD-WRITER-METHOD
  730.                      PCL::LONG-METHOD-COMBINATION-FUNCTION
  731.                      PCL::GENERIC-FUNCTION-P PCL::LEGAL-SLOT-NAME-P
  732.                      PCL::CLASS-WRAPPER PCL::DEFINITION-SOURCE
  733.                      PCL::DEFAULT-INITARGS PCL::CLASS-SLOT-VALUE
  734.                      PCL::FORWARD-REFERENCED-CLASS-P
  735.                      PCL::GF-FAST-METHOD-FUNCTION-P
  736.                      PCL::LEGAL-QUALIFIER-P PCL::METHOD-P
  737.                      PCL::CLASS-SLOT-CELLS
  738.                      PCL::STANDARD-ACCESSOR-METHOD-P
  739.                      PCL::STANDARD-GENERIC-FUNCTION-P
  740.                      PCL::STANDARD-READER-METHOD-P
  741.                      PCL::STANDARD-METHOD-P
  742.                      PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
  743.                      PCL::COMPUTE-DEFAULT-INITARGS
  744.                      PCL::|SETF PCL CLASS-SLOT-VALUE|
  745.                      PCL::METHOD-COMBINATION-TYPE PCL::STANDARD-CLASS-P
  746.                      PCL::LEGAL-SPECIALIZER-P
  747.                      PCL::COMPUTE-SLOT-ACCESSOR-INFO
  748.                      PCL::STANDARD-BOUNDP-METHOD-P
  749.                      PCL::RAW-INSTANCE-ALLOCATOR
  750.                      PCL::|SETF PCL SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL|
  751.                      PCL::|SETF PCL CLASS-INITIALIZE-INFO|
  752.                      PCL::COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO
  753.                      PCL::STANDARD-WRITER-METHOD-P
  754.                      PCL::CLASS-INCOMPATIBLE-SUPERCLASS-LIST
  755.                      PCL::WRAPPER-FETCHER
  756.                      PCL::METHOD-COMBINATION-DOCUMENTATION
  757.                      PCL::|SETF PCL SLOT-DEFINITION-INITARGS|
  758.                      PCL::REMOVE-BOUNDP-METHOD
  759.                      PCL::|SETF PCL CLASS-DEFSTRUCT-CONSTRUCTOR|
  760.                      PCL::SHORT-COMBINATION-OPERATOR
  761.                      PCL::REMOVE-NAMED-METHOD
  762.                      PCL::LEGAL-DOCUMENTATION-P
  763.                      PCL:CLASS-DIRECT-SUPERCLASSES
  764.                      PCL:CLASS-DIRECT-SUBCLASSES
  765.                      PCL:CLASS-DIRECT-DEFAULT-INITARGS
  766.                      PCL:SLOT-DEFINITION-READERS
  767.                      PCL:SLOT-VALUE-USING-CLASS
  768.                      PCL:COMPUTE-APPLICABLE-METHODS PCL:CLASS-NAME
  769.                      PCL:CLASS-PROTOTYPE PCL:READER-METHOD-CLASS
  770.                      PCL:REMOVE-METHOD PCL:SLOT-DEFINITION-INITFORM
  771.                      PCL:UPDATE-INSTANCE-FOR-REDEFINED-CLASS
  772.                      PCL:UPDATE-INSTANCE-FOR-DIFFERENT-CLASS
  773.                      PCL:CHANGE-CLASS PCL:METHOD-FUNCTION
  774.                      PCL:DIRECT-SLOT-DEFINITION-CLASS
  775.                      PCL:MAKE-METHOD-LAMBDA
  776.                      PCL:EFFECTIVE-SLOT-DEFINITION-CLASS
  777.                      PCL:CLASS-SLOTS PCL:COMPUTE-SLOTS
  778.                      PCL:SLOT-DEFINITION-NAME PCL:FINALIZE-INHERITANCE
  779.                      PCL:GENERIC-FUNCTION-LAMBDA-LIST
  780.                      PCL:CLASS-DIRECT-SLOTS PCL:CLASS-DEFAULT-INITARGS
  781.                      PCL:COMPUTE-DISCRIMINATING-FUNCTION
  782.                      PCL:CLASS-FINALIZED-P PCL:GENERIC-FUNCTION-NAME
  783.                      PCL:REMOVE-DEPENDENT
  784.                      PCL:COMPUTE-CLASS-PRECEDENCE-LIST
  785.                      PCL:ADD-DEPENDENT PCL:SLOT-BOUNDP-USING-CLASS
  786.                      PCL:ACCESSOR-METHOD-SLOT-DEFINITION
  787.                      PCL:SHARED-INITIALIZE PCL:ADD-DIRECT-METHOD
  788.                      PCL:SLOT-DEFINITION-LOCATION
  789.                      PCL:SLOT-DEFINITION-INITFUNCTION
  790.                      PCL:SLOT-DEFINITION-ALLOCATION PCL:ADD-METHOD
  791.                      PCL:GENERIC-FUNCTION-METHOD-CLASS
  792.                      PCL:METHOD-SPECIALIZERS
  793.                      PCL:SLOT-DEFINITION-INITARGS
  794.                      PCL:WRITER-METHOD-CLASS PCL:ADD-DIRECT-SUBCLASS
  795.                      PCL:SPECIALIZER-DIRECT-METHODS
  796.                      PCL:GENERIC-FUNCTION-METHOD-COMBINATION
  797.                      PCL:ALLOCATE-INSTANCE PCL:COMPUTE-EFFECTIVE-METHOD
  798.                      PCL:SLOT-DEFINITION-TYPE PCL:SLOT-UNBOUND
  799.                      PCL:INITIALIZE-INSTANCE PCL:FUNCTION-KEYWORDS
  800.                      PCL:REINITIALIZE-INSTANCE PCL:VALIDATE-SUPERCLASS
  801.                      PCL:GENERIC-FUNCTION-METHODS
  802.                      PCL:REMOVE-DIRECT-METHOD PCL:METHOD-LAMBDA-LIST
  803.                      PCL:MAKE-INSTANCE
  804.                      PCL:COMPUTE-EFFECTIVE-SLOT-DEFINITION
  805.                      PCL:PRINT-OBJECT PCL:METHOD-QUALIFIERS
  806.                      PCL:METHOD-GENERIC-FUNCTION
  807.                      PCL:REMOVE-DIRECT-SUBCLASS
  808.                      PCL:MAKE-INSTANCES-OBSOLETE
  809.                      PCL:SLOT-MAKUNBOUND-USING-CLASS
  810.                      PCL:ENSURE-GENERIC-FUNCTION-USING-CLASS
  811.                      PCL:SLOT-MISSING PCL:MAP-DEPENDENTS
  812.                      PCL:FIND-METHOD-COMBINATION
  813.                      PCL:ENSURE-CLASS-USING-CLASS
  814.                      PCL:NO-APPLICABLE-METHOD
  815.                      PCL:SLOT-DEFINITION-WRITERS
  816.                      PCL:COMPUTE-APPLICABLE-METHODS-USING-CLASSES
  817.                      PCL:CLASS-PRECEDENCE-LIST))
  818.   (SETF (GET PCL::V 'COMPILER::PROCLAIMED-CLOSURE) T)) 
  819.